home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / allfiles / angry / scene1_2.dir / 00001_Script_--movieScript next >
Text File  |  1999-03-01  |  3KB  |  100 lines
  1. global fileSep
  2.  
  3. on startMovie
  4.   --preload panning downChix--  
  5.   preLoad 241, 260
  6.   initMovie
  7.   set the exitLock to TRUE
  8.   
  9.   
  10. end startMovie
  11.  
  12. on initMovie
  13.   if the machineType = 256 then
  14.     put "\" into fileSep
  15.   else  
  16.     put ":" into fileSep
  17.   end if
  18.   
  19.   when keyDown then setVolume() -- to adjust volume by number keys
  20.   
  21. end initMovie
  22.  
  23.  
  24. on setVolume  
  25.   set inKey = the key
  26.   
  27.   if inKey = "q" OR inKey = "Q" then go to frame "quitArtRight" of movie "intro"
  28.   
  29.   if charToNum(inKey) >= charToNum ("0") and charToNum (inKey) <= charToNum ("9") then
  30.     set newVol = integer (the key)
  31.     if the soundLevel <> newVol then set the soundLevel = newVol
  32.   end if 
  33. end setVolume
  34.  
  35. on idle
  36.   checkExit   
  37.   
  38.   set point1 = point(the mouseH, the mouseV)
  39.   set point2 = point(93, 19)
  40.   set point3 = point(322, 19)
  41.   set point4 = point(571, 19)
  42.   set rrDeltaLoc = point1 - point2 --rewind button
  43.   set ssDeltaLoc = point1 - point3 --stop button
  44.   set ffDeltaLoc = point1 - point4 --fast forward button
  45.   
  46.   set dX = getAt(rrDeltaLoc, 1)
  47.   set dY = getAt(rrDeltaLoc, 2)
  48.   set sdX = getAt(ssDeltaLoc, 1)
  49.   set sdY = getAt(ssDeltaLoc, 2)
  50.   set fdX = getAt(ffDeltaLoc, 1)
  51.   set fdY = getAt(ffDeltaLoc, 2)
  52.   
  53.   set rr = sqrt( dX*dX + dY*dY )
  54.   set ss = sqrt( sdX*sdX + sdY*sdY )
  55.   set ff = sqrt( fdX*fdX + fdY*fdY )
  56.   -- removed fading option during beta -kl
  57.   
  58.   if rr <= 60 then
  59.     if the locH of sprite(95) > 650 then
  60.       set the loc of sprite(95) = point(93, 19)
  61.     end if
  62.     if rr < 20 then set rr = 4    
  63.     set the blend of sprite(95) = 100 -- - (rr * 2)
  64.   else
  65.     if the blend of sprite(95) <> 0 then set the blend of sprite(95) = 0
  66.     set the locH of sprite(95) = 1000
  67.   end if
  68.   
  69.   if ss <= 75 then
  70.     if the locH of sprite(96) > 650 then
  71.       set the loc of sprite(96) = point(322, 19)
  72.     end if
  73.     if ss < 20 then set ss = 4
  74.     set the blend of sprite(96) = 100 -- - (ss * 2)
  75.   else
  76.     if the blend of sprite(96) <> 0 then set the blend of sprite(96) = 0    
  77.     set the locH of sprite(96) = 1000
  78.   end if
  79.   
  80.   if ff <= 60 then
  81.     if the locH of sprite(97) > 650 then
  82.       set the loc of sprite(97) = point(571, 19)
  83.     end if
  84.     if ff < 20 then set ff = 4
  85.     set the blend of sprite(97) = 100 -- - (ff * 2)
  86.   else
  87.     if the blend of sprite(97) <> 0 then set the blend of sprite(97) = 0
  88.     set the locH of sprite(97) = 1000
  89.   end if
  90. end
  91.  
  92.  
  93. on checkExit
  94.   if the commandDown and ¼
  95.    (the key = "." or the key = "q") and ¼
  96.    the exitLock = TRUE then 
  97.     go to frame "quitARTWrong" of movie "intro"
  98.   end if  
  99. end checkExit
  100.